home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / demos / a-d / amms / mbbatch / com / zconnect_packer < prev    next >
Encoding:
Text File  |  1995-08-18  |  5.2 KB  |  209 lines
  1. ;    ZConnect-Packer
  2. ;
  3. ;    Scriptfile zum Vorpacken neuer Nachrichten im ZConnect-Format
  4. ;
  5. ;    $VER: 1.00 / 18.08.1995
  6. ;
  7. ;       Beschreibung :
  8. ;    Wird die Batch auf dem Port EXPORT gestartet, so werden die
  9. ;    neusten Nachrichten im ZConnect-Format exportiert.
  10. ;    Temporaer werden Daten im Directory MBMSG:POINT/<Portname>/
  11. ;    gespeichert.
  12. ;    Im Directory MBNET:EXPORT/ werden die exportierten Daten in den
  13. ;    Dateien <USERNAME>.LHA, <USERNAME>.MSGNR und <USERNAME>.PMNR
  14. ;    abgelegt, so dass sie von der Server bzw. der Client-Batch benutzt
  15. ;    werden koennen.
  16. ;    Wird die Batch nicht auf dem Port EXPORT gestartet, so wird bei
  17. ;    Vorhandensein des Ports EXPORT ein Event ausgeloest, der den Start
  18. ;    der Batch auf dem Port EXPORT ausloest. Existiert nicht dieser Port,
  19. ;    so wird auf dem akt. Port das Packen ausgefuehrt.
  20. ;    Die Batch kehrt ohne Logout oder Hangup zurueck.
  21. ;    
  22. ;
  23. ;    Das Script sollte so eingebunden werden, dass es ueber Flags
  24. ;    auf die folgende Befehle zugreifen kann !
  25. ;
  26. ;    ADD EVENT
  27. ;    CHECK FILE
  28. ;    DISK EXECUTE
  29. ;    ECHO
  30. ;    EXTERN
  31. ;    GOTO
  32. ;    IF
  33. ;    MESSAGE
  34. ;    ON ERROR
  35. ;    ZCONNECT MAKEFILE
  36. ;
  37. ;    Folgende Amiga-Dos-Befehle werden benutzt :
  38. ;
  39. ;    COPY
  40. ;    DELETE
  41. ;
  42. ;    Einrichtung eines Netcalls fuer eine Netzbox (Node) :
  43. ;    USERNAME : Name der anrufenden Node (z.B. TBA)
  44. ;    STRASSE  : @NETCALL
  45. ;    STADT     : Name der Domain (z.B. Fastnet.de)
  46. ;
  47. ;    Einrichtung eines LocalGates fuer die Einbindung eines anderen
  48. ;    lokalen Netzwerks :
  49. ;    USERNAME : Name der anrufenden Node (z.B. TBA)
  50. ;    VORNAME  : Gatename im Fastnet (z.B. Z-Netz)
  51. ;    STRASSE  : @LOCALGATE
  52. ;    STADT     : Name der Domain (z.B. Z-Netz.de)
  53. ;
  54. ;    Einrichtung eines Gates fuer die Einbindung eines anderen
  55. ;    globalen Netzwerks :
  56. ;    USERNAME : Name der anrufenden Node (z.B. TBA)
  57. ;    VORNAME  : Gatename im Fastnet (z.B. Z-Netz)
  58. ;    NACHNAME : Gatename im Zerberus-Netz (z.B. Fastnet)
  59. ;    STRASSE  : @GATE
  60. ;    STADT     : Name der Domain (z.B. Z-Netz.de)
  61. ;
  62. ;
  63. ;    Konstanten :
  64. ;
  65. EXPORTPORT= "EXPORT"                ; Portname fuer Export
  66. TMPDIR    = "mbmsg:point/'{port}'/"        ; Dir fuer Tmp-Files
  67. EXPORTDIR = "mbnet:Export/"            ; Export-Directory
  68. EXFTABDIR = "mbnet:ExportFTab/"            ; Export-FTab-Directory
  69. MAXMSGLEN = 2000                ; Max. Laenge der Msgs in KByte
  70. MAXPMLEN  = 2000                ; Max. Laenge der PMs in KByte
  71. MSGFILE   = "'{CALLS}'.BRT"            ; Oeff. Nachrichten
  72. PMFILE    = "'{CALLS}'.PRV"            ; Private Nachrichten
  73. PMNRFILE  = "pmnr"                ; File fuer PM-Nummern
  74. COPYFILE  = "'{NAME}'@ZC.lha"            ; Vorgabefile (Pack-Event)
  75. COPYMSGNR = "'{NAME}'@ZC.msgnr"            ; File fuer Msg-Nummern
  76. COPYPMNR  = "'{NAME}'@ZC.pmnr"            ; File fuer PM-Nummern
  77. PACKER    = "lha -P-1 m ""'EXPORTDIR''COPYFILE'"" ""'TMPDIR''PMFILE'"" ""'TMPDIR''MSGFILE'"""
  78.                         ; Packen
  79.  
  80. ;
  81. ;    Domainname holen
  82. ;
  83. _on error ERROR                    ; Im Fehlerfall ...
  84. DOMAIN={CITY}                    ; Domainname holen
  85.  
  86. ;
  87. ;    Pruefe auf normalen Netcall
  88. ;
  89.  
  90. _if {STREET} != "@NETCALL" then _goto LOCALGATE
  91. FIL=1+4+16+32+64
  92. OP_MAKEPM="/Type=0/Filter='FIL'"
  93. FIL=2+8+16+32+64
  94. OP_MAKEMSG="/Type=0/Filter='FIL'"
  95. _goto START
  96.  
  97. ;
  98. ;    Pruefe auf LocalGate
  99. ;
  100. LOCALGATE:
  101. _if {STREET} != "@LOCALGATE" then _goto GATE
  102. FIL=1+4+16+32+64
  103. OP_MAKEPM="/Type=2/Filter='FIL'"
  104. FIL=2+8+16+32+64
  105. OP_MAKEMSG="/Type=2/Filter='FIL'"
  106. _goto START
  107.  
  108. ;
  109. ;    Pruefe auf Gate
  110. ;
  111. GATE:
  112. _if {STREET} != "@GATE" then _goto USERPOINT
  113. FIL=1+4+16+32+64
  114. OP_MAKEPM="/Type=1/Filter='FIL'"
  115. FIL=2+8+16+32+64
  116. OP_MAKEMSG="/Type=1/Filter='FIL'"
  117. _goto START
  118.  
  119. ;
  120. ;    User-Point
  121. ;
  122. USERPOINT:
  123. FIL=1+4+16+32+64
  124. OP_MAKEPM="/Type=3/Filter='FIL'"
  125. FIL=2+4+8+16+32+64
  126. OP_MAKEMSG="/Type=3/Filter='FIL'"
  127. DOMAIN="ZER"                    ; Domain ZER setzen
  128.  
  129. ;
  130. ;    Filebrett-Konverter-Files einbinden
  131. ;
  132. START:
  133. _check file "'EXFTABDIR''{NAME}'" NOEXPORTCVT
  134. OP_MAKEMSG="'OP_MAKEMSG'/FBoardlist=""'EXFTABDIR''{NAME}'"""
  135. NOEXPORTCVT:
  136.  
  137. ;
  138. ;    Lade sprachspezifische Texte ein
  139. ;
  140.  
  141. _gosub LOADTEXT                    ; Texte laden
  142.  
  143. ;
  144. ;    Wenn Spezial-Port, Daten sofort exportieren
  145. ;
  146.  
  147. _if EXPORTPORT == {PORT} then _goto EXPORT     ; Wenn EXPORT-Port, verzw.
  148.  
  149. ;
  150. ;    Wenn Port EXPORT existiert, Export-Event starten
  151. ;
  152.  
  153. _check port "'EXPORTPORT'" EXPORT        ; Wenn kein Port, verzw.
  154. _add event/Background "'EXPORTPORT'" 0 3 mbbatch:zconnect_export "'{NAME}'"
  155. _echo PORTTEXT                    ; Status ausgeben
  156. _goto END                    ; -> Ende
  157.  
  158. ;
  159. ;    Leere TMP-Verzeichnis / Loesche alte vorgepackte Dateien
  160. ;
  161. EXPORT:
  162. _if TMPDIR != "" then _extern/q delete "'TMPDIR'#?"
  163. _extern/q delete "'EXPORTDIR''COPYPMNR'" "'EXPORTDIR''COPYFILE'" "'EXPORTDIR''COPYMSGNR'"
  164.  
  165. ;
  166. ;    PMs und Messages exportieren
  167. ;
  168.  
  169. _on error/ignore                
  170. _zconnect makefile'OP_MAKEPM' "'TMPDIR''PMFILE'" 'MAXPMLEN' "'TMPDIR''PMNRFILE'" "'DOMAIN'"
  171. _zconnect makefile'OP_MAKEMSG' "'TMPDIR''MSGFILE'" 'MAXMSGLEN' "'EXPORTDIR''COPYMSGNR'" "'DOMAIN'"
  172. _on error ERROR
  173.  
  174. ;
  175. ;    Messages packen
  176. ;
  177.  
  178. _extern/q 'PACKER'
  179.  
  180. ;
  181. ;    PMNR-File in Export-Dir kopieren
  182.  
  183. _extern/q copy "'TMPDIR''PMNRFILE'" "'EXPORTDIR''COPYPMNR'"
  184.  
  185. ;
  186. ;    User auf anderen Port Fertigstellung melden
  187. ;
  188.  
  189. _if EXPORTPORT != {PORT} then _goto END        ; Wenn akt. Port =! EXPORT, verzw.
  190. _message/user "'{NAME}'" "'INFOTEXT'"        ; Nachricht an User senden
  191.  
  192. ;
  193. ;    Alle temporaer erzeugten Files loeschen
  194. ;
  195. ERROR:                        ; Fehler / Ende
  196. END:
  197. _if TMPDIR != "" then _extern/q delete "'TMPDIR'#?" ; Disk aufraeumen
  198. _eod
  199.  
  200. ; Unterroutine: Lade sprachspezifische Texte
  201.  
  202. LOADTEXT:
  203. LANG={DEFLANGUAGE}
  204. _check file "mbbatch:com/'{ALANGUAGE}'/zconnect_packer.bat" GETTEXT
  205. LANG={ALANGUAGE}
  206. GETTEXT:
  207. _disk execute/keep "mbbatch:com/'LANG'/zconnect_packer.bat"
  208. _return
  209.